home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / AGE_SEX.SRC < prev    next >
Text File  |  1990-11-04  |  3KB  |  173 lines
  1. ;\|
  2. ;AGE_SEX.SRC     Translated from AGE_SEX.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;AGE_SEX  02:58:03 PM  10/ 1/90                    |
  4. ;Program generated with the database file lister|
  5. define(PAGE|N|5|0|)
  6. define(DATE.TIME.FLD|A|46||)
  7. define(DOC|N|1||)
  8. define(TOT.RECS|N|8|0|)
  9. define(CHG.TIME|T|8||)
  10. define(CHG.DATE|D|10||)
  11. define(STDDAYS|A|12||)
  12. define(STDMONTH|A|12||)
  13. define(STDYEAR|A|6||)
  14. define(STDAYH|A|4||)
  15. define(AM.PM|A|2||)
  16. define(TIME.STRG|A|10||)
  17. define(PG.STRG|A|5||)
  18. define(SELECT.FLD.F1|D| 10||)
  19. define(SELECT.FLD.T1|D| 10||)
  20. trap(q|g|exit)
  21. clrscr
  22. clrlne(1|25)
  23. open(PATIENT |||)
  24. open(RECALLS|||)
  25. gosub GET.DATE
  26. mount(SELECT|S||)
  27. enter(SELECT.FLD.F1||||||||)
  28. enter(SELECT.FLD.T1||||||||)
  29. enter(DOC|"1234"|||N|N|N|||N)
  30. trap(P|G|TOF)
  31. mount(REPORT|R|A|)
  32. trap(I|G|FINI)
  33. DATE.OF.BIRTH = (SELECT.FLD.F1)
  34. find(G|DATE.OF.BIRTH|NO.RECS|)
  35. PRT.REC:
  36. if SELECT.FLD.F1 <> (0) then if SELECT.FLD.F1 > (DATE.OF.BIRTH) goto RD.NEXT
  37. if SELECT.FLD.T1 <> (0) then if SELECT.FLD.T1 < (DATE.OF.BIRTH) goto FINI
  38. if DOC <> (DOCTOR) goto RD.NEXT
  39. if SEX <> ("F") goto RD.NEXT
  40. COD.REF = (RECORD.NUMBER)
  41. find(M|COD.REF|RD.NEXT|)
  42. pfmt(6||||)
  43. TOT.RECS = (TOT.RECS + 1)
  44. RD.NEXT:
  45. find(N|PATIENT |FINI)
  46. goto PRT.REC
  47. FINI:
  48. pfmt(5||||)
  49. pfmt(8||||)
  50. pblnk(2)
  51. pfmt(7||||)
  52. trap(P|D|)
  53. ptof
  54. run("recmenu"|)
  55. TOF:
  56. PAGE = (PAGE + 1)
  57. pfmt(1||||)
  58. pfmt(2||||)
  59. pfmt(3||||)
  60. pblnk(1)
  61. pfmt(4||||)
  62. pfmt(5||||)
  63. ret
  64. GET.DATE:
  65. time(CHG.TIME|G)
  66. date(CHG.DATE|G)
  67. AM.PM = ("AM")
  68. if CHG.TIME > (43199) doO
  69. {
  70. AM.PM = ("PM")
  71. if CHG.TIME > (46799) then CHG.TIME = (CHG.TIME - 43200)
  72. }
  73. TIME.STRG =mid(CHG.TIME|1|8|)
  74. STDDAYS =day(CHG.DATE)
  75. STDMONTH =xmt(CHG.DATE)
  76. STDAYH =mid(CHG.DATE|4|2|)
  77. STDYEAR =mid(CHG.DATE|7|4|)
  78. PG.STRG = (PAGE)
  79. DATE.TIME.FLD = (STDDAYS+STDMONTH+STDAYH+STDYEAR+TIME.STRG+AM.PM)
  80. ret
  81. NO.RECS:
  82. pmsg("There are no records in the PATIENT  file "|1|24|Y|||)
  83. EXIT:
  84. run("recmenu"|)
  85. \R REPORT  
  86.                  AGE_SEX - Database File Listing for: PATIENT
  87.                 &
  88.                                  Page # &
  89. DATE.OF.BIRTH  PATIENT.NAME                 ADDRESS1
  90. -------------  ---------------------------  ----------------------
  91. &              &                            &                        &
  92. Total number of records printed: &
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134. \
  135. DATE.TIME.FLD
  136. PAGE
  137. DATE.OF.BIRTH
  138. PATIENT.NAME
  139. ADDRESS1
  140. COD[1]
  141. TOT.RECS
  142. \
  143. \STSELECT  
  144.  Selection screen for AGE_SEX - Database File Listing for: PATIENT
  145.  DATE.OF.BIRTH
  146.  FROM- &
  147.  THRU- &
  148.  doc - &
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168. \
  169. SELECT.FLD.F1
  170. SELECT.FLD.T1
  171. DOC
  172. \
  173.